home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / utility / memsz320.zip / MAGYAR.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-26  |  3KB  |  156 lines
  1. /* MAGYAR.CMD: A MEMSIZE telepítése magyar nyelven. */
  2.  
  3. '@Echo Off'
  4. 'CHCP 852'
  5.  
  6. /* REXXUTIL betöltése */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Inicializálás */
  13.  
  14. Signal On Failure Name FAILURE
  15. Signal On Halt Name HALT
  16. Signal On Syntax Name SYNTAX
  17.  
  18. Call SysCls
  19. Say 'MEMSIZE telepítése...'
  20. Say ''
  21.  
  22.  
  23. /* Komponens-fájlok létezésének vizsgálata */
  24.  
  25. Language = 'MAGYAR'
  26.  
  27. Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'HIBA: MEMSIZE.EXE nem található!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say 'Hiba: 'Language'.DLL nem található!'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'Hiba: 'Language'.HLP nem található!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* A célalkönyvtár nevének bekérése */
  49.  
  50. Default = SysIni('USER', 'MEMSIZE', 'INIPATH' )
  51. If Default = 'ERROR:'
  52.   Then Default = 'C:\OS2\Apps'
  53. If SUBSTR(Default,LENGTH(Default),1) <= ' '
  54.   Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
  55.  
  56. Say 'Add meg az alkönyvtár teljes nevét, amelybe a MEMSIZE-ot'
  57. Say '  telepíteni akarod (alapértelmezés: 'Default')! '
  58. Parse Pull Directory
  59. If Directory = "" Then Directory = Default
  60.  
  61.  
  62. /* A célalkönyvtár létrehozása, ha szükséges */
  63.  
  64. Result = SysFileTree( Directory, 'Dirs', 'D' )
  65. If Dirs.0 = 0 Then
  66.   Do
  67.   Result = SysMkDir( Directory )
  68.   if Result == 0 Then
  69.     Do
  70.     End
  71.   Else
  72.     Do
  73.     Say 'HIBA: Célalkönyvtár nem hozható létre.'
  74.  
  75.     Signal DONE
  76.     End
  77.   End
  78. Say ''
  79.  
  80.  
  81. /* A célgy√jtï nevének bekérése */
  82.  
  83. Say 'Akarod az Automatikus indítás gy√jtïbe telepíteni? (I/N)'
  84. Pull YesNo
  85. If YesNo = "I" Then
  86.   Do
  87.   Folder = '<WP_START>'
  88.   Say 'Az objektum az Automatikus indítás gy√jtïbe kerül.'
  89.   End
  90. Else
  91.   Do
  92.   Folder = '<WP_DESKTOP>'
  93.   Say 'Az objektum a munkaasztalra kerül.'
  94.   End
  95. Say ''
  96.  
  97.  
  98. /* Régi objektum törlése, ha létezik */
  99.  
  100. Call SysDestroyObject( '<MEMSIZE>' )
  101. Call SysSleep( 5 )
  102.  
  103.  
  104. /* Telepítés elvégzése */
  105.  
  106. Say 'MEMSIZE másolása a(z) 'Directory' alkönyvtárba...'
  107. Copy MEMSIZE.EXE Directory                  '1>NUL'
  108. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  109. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  110. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  111.  
  112. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  113. If Files.0 > 0 Then
  114.    Do
  115.    Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
  116.    If Files.0 > 0 Then
  117.       Do
  118.       "Erase" Directory"\MEMSIZE.INF"
  119.       End
  120.    "HLP2INF" Directory"\MEMSIZE.HLP"
  121.    End
  122.  
  123. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  124. If Files.0 > 0 Then
  125.    Do
  126.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  127.    End
  128.  
  129. Say 'Programobjektum létrehozása...'
  130. Type = 'WPProgram'
  131. Title = 'System Resources'
  132. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  133. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  134.  
  135. If Result = 1 Then
  136.   Say 'Objektum létrehozva!  Kész.'
  137. Else
  138.   Say 'HIBA: Az objektum nem jött létre.'
  139.  
  140. Signal DONE
  141.  
  142. FAILURE:
  143. Say 'REXX hiba.'
  144. Signal DONE
  145.  
  146. HALT:
  147. Say 'REXX leállás.'
  148. Signal DONE
  149.  
  150. SYNTAX:
  151. Say 'REXX szintaktikai hiba.'
  152. Signal DONE
  153.  
  154. DONE:
  155. Exit
  156.